package annals;

sub new {
  my $class = shift;
  my %param = @_;
  my $this={};
  $this->{'Name'} = $param{'Name'};
  print 'name:'. $this->{'Name'};
  bless $this, $class;
  return $this;
}
1;
